home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor1 / ged441.lha / ged441 / Install < prev    next >
Text File  |  1996-11-23  |  75KB  |  2,122 lines
  1. ; $VER: GoldED Install 4, Copyright ©1996 Dietmar Eilert
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4.  
  5. ; ------------------------------- Set run mode ---------------------------------
  6.  
  7. ; disable script debug mode
  8.  
  9. (set golded_install_debug 0)
  10.  
  11. ; ------------------------------ English strings -------------------------------
  12.  
  13. (if (not (= @language "deutsch"))
  14.  
  15.     (
  16.         (set #golded_introduction (cat "\n"
  17.  
  18.             "GoldED 4 · Programmer's Editor                    \n"
  19.             "©1996 Dietmar Eilert                              \n"
  20.             "All Rights Reserved.                              \n"
  21.             "                                                  \n"
  22.             "GoldED is not freely distributable. Please read   \n"
  23.             "the licence file before you install the software. \n"
  24.             "Information on installing GoldED 4 over GoldED 3  \n"
  25.             "can be found in the readme file.                  \n"
  26.             "                                                  \n"
  27.             "This script supports uninstallation.              \n"
  28.         ))
  29.  
  30.         (set #golded_badkick "\n Sorry, this package requires OS v2.04 or better.\n")
  31.  
  32.         (set #golded_warn_userstartup "\nWARNING: S:USER-STARTUP MISSING")
  33.  
  34.         (set #golded_error (cat
  35.  
  36.             " Some error has occurred. Please inform a GoldED  \n"
  37.             " support site (e.g. dietmar@tomate.tng.oche.de)   \n"
  38.             " AFTER having tried a different Installer release:\n"
  39.             " 1.24 is known to work fine.                      \n"
  40.             "                                                  \n"
  41.             " The following information is required: error code\n"
  42.             " (above), last error message, the percentage done \n"
  43.             " (window title) and your log file. If available:  \n"
  44.             " a SnoopDos report. Thank you !                   \n"
  45.         ))
  46.  
  47.         (set #golded_assign_found "\nGOLDED installation detected ...\n")
  48.  
  49.         (set #golded_assign_found_help (cat "\n"
  50.  
  51.             " INSTALL NEW:                                     \n"
  52.             "                                                  \n"
  53.             " Install to a directory of your choice. Old GoldED\n"
  54.             " installations are NOT removed if you install to a\n"
  55.             " new directory. Your old files are overwritten if \n"
  56.             " you install over an existing GoldED installation \n"
  57.             " (backups are made if requested).                 \n"
  58.             "                                                  \n"
  59.             " UPDATE EXISTING GOLDED:                          \n"
  60.             "                                                  \n"
  61.             " You won't be asked for directories: Directories  \n"
  62.             " of your previous installation are used. Existing \n"
  63.             " files are overwritten (backups are made if       \n"
  64.             " requested).                                      \n"
  65.             "                                                  \n"
  66.             " REMOVE GOLDED:                                   \n"
  67.             "                                                  \n"
  68.             " All files and drawers created by a former GoldED \n"
  69.             " installation are removed. Your own files are     \n"
  70.             " removed, too, if placed in one of GoldED's       \n"
  71.             " drawers.                                         \n"
  72.         ))
  73.  
  74.         (set #golded_new         "Install new")
  75.         (set #golded_update      "Update existing GoldED")
  76.         (set #golded_remove      "Remove GoldED from your system")
  77.  
  78.         (set #golded_ask_amount "\nPlease choose installation mode:\n")
  79.  
  80.         (set #golded_ask_amount_help (cat "\n"
  81.  
  82.             " This decision affects the amount of data  written\n"
  83.             " to your disk.                                    \n"
  84.         ))
  85.  
  86.         (set #golded_ask_amount_standard "Complete installation (2.2 MB)")
  87.         (set #golded_ask_amount_user     "User defined installation")
  88.         (set #golded_ask_amount_minimum  "Minimum installation (575 K)")
  89.  
  90.         (set #golded_remove_ged  "\nRemove GoldED assign ?\n")
  91.         (set #golded_remove_hs   "\nRemove HiSpeed assign ?\n")
  92.         (set #golded_remove_ed   "\nRemove quickstarter access ?\n")
  93.         (set #golded_remove_gmk  "\nRemove GUIMake assign ?\n")
  94.  
  95.         (set #golded_must_remove "You should have this assign/reference removed !")
  96.  
  97.         (set #golded_removed "; (removed)")
  98.  
  99.         (set #golded_lharc     "\nExtracting data (can take a few minutes)")
  100.         (set #golded_lharcfail "\nCouldn't extract files - check free disk space")
  101.  
  102.         (set #golded_installing_files "\nInstalling files ...")
  103.         (set #golded_prepare_install  "\nPreparing installation ...")
  104.  
  105.         (set #golded_backup_mode "\nChoose a backup strategy for your old GoldED installation.\n")
  106.  
  107.         (set #golded_backup_mode_help (cat "\n"
  108.  
  109.             " Determines how old files are handled before they \n"
  110.             " are overwritten by new files or before they are  \n"
  111.             " deleted (if considered obsolete).                \n"
  112.         ))
  113.  
  114.         (set #golded_backup_mode_none     "No backups")
  115.         (set #golded_backup_mode_selected "Backup presets & macros")
  116.         (set #golded_backup_mode_all      "Backup all files")
  117.  
  118.         (set #golded_pref_icons "\nSelect preferred icon type:\n")
  119.  
  120.         (set #golded_medres " med-res icons (pixel ratio 1:2)")
  121.         (set #golded_hires  " hi-res  icons (pixel ratio 1:1)")
  122.  
  123.         (set #golded_pref_icons_help (cat "\n"
  124.  
  125.             " Select med-res if the pixel ratio of your        \n"
  126.             " preferred screen resolution is approx. 1:2       \n"
  127.             " (e.g.640*200).                                   \n"
  128.             "                                                  \n"
  129.             " Select HiRes if the pixel ratio of your preferred\n"
  130.             " screen resolution is approx. 1:1 (eg. 640*400).  \n"
  131.         ))
  132.  
  133.         (set #golded_toolbar_style "\nSelect preferred toolbar style:\n")
  134.  
  135.         (set #golded_toolbar_4 "4  colors")
  136.         (set #golded_toolbar_8 "8+ colors")
  137.  
  138.         (set #golded_toolbar_style_help (cat "\n"
  139.  
  140.             " Both styles can be used on all screens. The 4\n"
  141.             " color style has been optimized for 4-color   \n"
  142.             " screens. The 8+ style has been optimized for \n"
  143.             " screens with eight or more colors.           \n"
  144.         ))
  145.  
  146.         (set #golded_where (cat
  147.  
  148.             "Select a path for the installation. The drawer    \n"
  149.             "'GoldED' is created in the directory you select:  \n"
  150.         ))
  151.  
  152.         (set #golded_where_help (cat "\n"
  153.  
  154.             " Simply select a directory (a root directory is   \n"
  155.             " fine, too). The directory 'GoldED' is created in \n"
  156.             " the path you specify.                            \n"
  157.             "                                                  \n"
  158.             " The GoldED directory is used to store GoldED and \n"
  159.             " several support files/tools.                     \n"
  160.         ))
  161.  
  162.         (set #golded_bad_path "Sorry, can't install to RAM disk")
  163.  
  164.         (set #golded_drive_space (cat "\n"
  165.  
  166.             " This installation requires at least 5 MB free    \n"
  167.             " disk space. Please make this space available     \n"
  168.             " and start again.                                 \n"
  169.         ))
  170.  
  171.         (set #golded_gold_lib "Installation of golded.library ...")
  172.  
  173.         (set #golded_gold_lib_help (cat "\n"
  174.  
  175.             "This library is required by the demo version only.\n"
  176.             "Registered users receive a keyfile instead.       \n"
  177.         ))
  178.  
  179.         (set #golded_select_optional (cat "\n"
  180.  
  181.             "Choose the GoldED components you would like to    \n"
  182.             "have installed. Installed components are removed  \n"
  183.             "if unchecked.                                     \n"
  184.         ))
  185.  
  186.         (set #golded_select_optional_help (cat "\n"
  187.  
  188.             " You shouldn't disable any of these components:   \n"
  189.             "                                                  \n"
  190.             " SYNTAX PARSERS (80 K)                            \n"
  191.             "                                                  \n"
  192.             " A selection of syntax parsers (responsible for   \n"
  193.             " color-coded text: e-mail, source codes, ...)     \n"
  194.             "                                                  \n"
  195.             " HISPEED (300 K)                                  \n"
  196.             "                                                  \n"
  197.             " Printing utility for Laser printers, DeskJet     \n"
  198.             " printers and other PCL printers.                 \n"
  199.             "                                                  \n"
  200.             " You may disable any of these components without  \n"
  201.             " affecting the performance of GoldED:             \n"
  202.             "                                                  \n"
  203.             " APPICON STARTER (6 K)                            \n"
  204.             "                                                  \n"
  205.             " Adds a drag & drop icon to your workbench. Files \n"
  206.             " dropped over the icon are sent to GoldED.        \n"
  207.             "                                                  \n"
  208.             " RECOVER TOOL (6 K)                               \n"
  209.             "                                                  \n"
  210.             " Helps you to restore a text lost during a system \n"
  211.             " crash.                                           \n"
  212.             "                                                  \n"
  213.             " ORDER TOOL (19 K)                                \n"
  214.             "                                                  \n"
  215.             " Program to print the GoldED order form.          \n"
  216.             "                                                  \n"
  217.             " API CLIENTS (16 K)                               \n"
  218.             "                                                  \n"
  219.             " Applets for GoldED (examples)                    \n"
  220.             "                                                  \n"
  221.             " DEVELOPER (520 K)                                \n"
  222.             "                                                  \n"
  223.             " Developer material (sourcecodes, syntax scanner  \n"
  224.             " examples, QuickStarter, ...).                    \n"
  225.             "                                                  \n"
  226.             " MANUAL (290 - 350 K)                             \n"
  227.             "                                                  \n"
  228.             " GoldED manual (several languages). AmigaGuide    \n"
  229.             " format. Menu help is not available if you don't  \n"
  230.             " install a manual written in the same language    \n"
  231.             " you choose for GoldED's menu.                    \n"
  232.             "                                                  \n"
  233.             " QUICKSTARTER (5 K)                               \n"
  234.             "                                                  \n"
  235.             " GoldED frontend: GoldED activator. Can start the \n"
  236.             " editor quickly, detach it from a shell window,   \n"
  237.             " etc.                                             \n"
  238.             "                                                  \n"
  239.             " UNLOCK (1 K)                                     \n"
  240.             "                                                  \n"
  241.             " Utility to unlock GoldED's user interface if a   \n"
  242.             " faulty macro quits without unlocking GoldED.     \n"
  243.             "                                                  \n"
  244.             " ADDITIONAL TOOLBAR ICONS (20 K)                  \n"
  245.             "                                                  \n"
  246.             " Optional toolbar icons.                          \n"
  247.  
  248.         ))
  249.  
  250.         (set #golded_select_presets       "Presets"         )
  251.         (set #golded_select_parsers       "Syntax parsers"  )
  252.         (set #golded_select_hispeed       "HiSpeed"         )
  253.         (set #golded_select_appicon       "AppIcon starter" )
  254.         (set #golded_select_recover       "Recover utility" )
  255.         (set #golded_select_order         "Order program"   )
  256.         (set #golded_select_api           "API clients"     )
  257.         (set #golded_select_sources       "Sourcecodes"     )
  258.         (set #golded_select_manual_e      "Manual (English)")
  259.         (set #golded_select_manual_d      "Manual (German)" )
  260.         (set #golded_select_quickstarter  "QickStarter"     )
  261.         (set #golded_select_unlock        "UnLock utility"  )
  262.  
  263.         (set #golded_update_keyfile (cat "\n"
  264.  
  265.             "You already own a GoldED keyfile. Overwrite your  \n"
  266.             "old keyfile with the new one ?                    \n"
  267.         ))
  268.  
  269.         (set #golded_update_keyfile_help (cat "\n"
  270.  
  271.             " DON'T let this install script overwrite your     \n"
  272.             " old keyfile unless you know what you do. One     \n"
  273.             " valid reason would be that you have purchased    \n"
  274.             " GoldED and know want to have a pirated keyfile   \n"
  275.             " removed.                                         \n"
  276.         ))
  277.  
  278.         (set #golded_update_keyfile_overwrite "Overwrite old keyfile")
  279.         (set #golded_update_keyfile_keep "Keep old keyfile")
  280.  
  281.         (set #golded_updating_icons "\nUpdating icons ...")
  282.  
  283.         (set #golded_what_manuals "\nWhat manuals do you want to have installed ?\n")
  284.  
  285.         (set #golded_what_manuals_help (cat "\n"
  286.  
  287.             " Each manual (ie. AmigaGuide file) consumes about \n"
  288.             " 300K disk space.                                 \n"
  289.         ))
  290.  
  291.         (set #golded_add_ged_assign "Add GoldED assign to user-startup ?\n")
  292.  
  293.         (set #golded_add_ged_assign_help (cat "\n"
  294.  
  295.             " GoldED needs this assign to find its files       \n"
  296.             " (libraries, presets, macros).                    \n"
  297.         ))
  298.  
  299.         (set #golded_quickname " Choose a name for the QuickStarter:")
  300.  
  301.         (set #golded_quickname_help (cat "\n"
  302.  
  303.             " The QuickStarter is a small (5 KB) GoldED front- \n"
  304.             " end. You can use it as if it were a real editor. \n"
  305.             " For example you can type 'ed letter' to edit     \n"
  306.             " the file 'letter' if the QuickStarter is named   \n"
  307.             " 'ed'. The big advantage of a QuickStarter is its \n"
  308.             " ability to pass a new job to a runnning instance \n"
  309.             " of GoldED. Additionally, it helps you to start   \n"
  310.             " GoldED from any directory or to detach GoldED    \n"
  311.             " from a shell without having to use the RUN       \n"
  312.             " command.                                         \n"
  313.             "                                                  \n"
  314.             " The default name is 'ED'. Feel free to choose any\n"
  315.             " name you like. Personally, I prefer to use 'ED'  \n"
  316.             " (replacing the original ED).                     \n"
  317.         ))
  318.  
  319.         (set #golded_place_quick (cat "\n"
  320.  
  321.             " Select a directory for the QuickStarter (you     \n"
  322.             " should select a valid command directory):        \n"
  323.         ))
  324.  
  325.         (set #golded_place_quick_help (cat "\n"
  326.  
  327.             " You should select one of these directories if you\n"
  328.             " want to run the editor simply by typing its name,\n"
  329.             " no matter what your current path is:             \n"
  330.             "                                                  \n"
  331.             " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM    \n"
  332.             "                                                  \n"
  333.             " If you choose ED as default name, you must either\n"
  334.             " place the quick starter into c: or delete the old\n"
  335.             " ED from c: to prevent unpredictable behaviour.   \n"
  336.         ))
  337.  
  338.         (set #golded_quick_resident "\n Make QuickStarter resident ?\n")
  339.  
  340.         (set #golded_quick_resident_help (cat "\n"
  341.  
  342.             " I would suggest to make the QuickStarter (5 KB)  \n"
  343.             " resident - it will work faster.                  \n"
  344.         ))
  345.  
  346.         (set #golded_saving_files "\nCreating backups (golded:obsolete)")
  347.  
  348.         (set #golded_what_menu "\n Choose default menu definition file:\n")
  349.  
  350.         (set #golded_what_menu_help (cat "\n"
  351.  
  352.             " GoldED is localized and uses the locale library  \n"
  353.             " of OS 3 to display requester text in the language\n"
  354.             " choosen by the user. Menus are not part of the   \n"
  355.             " editor and not localized. However, the user may  \n"
  356.             " choose from different menu translations shipped  \n"
  357.             " with GoldED.                                     \n"
  358.         ))
  359.  
  360.         (set #golded_screen "\n Choose default screen resolution \n")
  361.  
  362.         (set #golded_screen_help (cat "\n"
  363.  
  364.             " Decide for a default screen mode to be used when \n"
  365.             " the editor is started for the first time. We     \n"
  366.             " suggest to use a custom screen to make GoldED run\n"
  367.             " faster and look better.                          \n"
  368.         ))
  369.  
  370.         (set #golded_screen_wb     "Workbench screen")
  371.         (set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
  372.         (set #golded_screen_pal_i  "PAL  interlaced (640*512)")
  373.  
  374.         (set #golded_look_feel "\nLook & feel\n")
  375.  
  376.         (set #golded_look_feel_help (cat "\n"
  377.  
  378.             " Suggestion: use a two-colors mode if your Amiga  \n"
  379.             " is slow (68000), a four colors mode for 68020 and\n"
  380.             " 68030 models (e.g. A1200) and more colors if you \n"
  381.             " own a fast Amiga (68040/68060).                  \n"
  382.         ))
  383.  
  384.         (set #golded_mode_blue     "Blue     (2  colors)")
  385.         (set #golded_mode_stone    "Modern   (4  colors)")
  386.         (set #golded_mode_desktop  "Desktop  (8  colors)")
  387.         (set #golded_mode_designer "Designer (16 colors)")
  388.  
  389.         (set #golded_what_proglang "\n Select preferred programming language:\n")
  390.  
  391.         (set #golded_what_proglang_other "other")
  392.         (set #golded_what_proglang_none  "none" )
  393.  
  394.         (set #golded_what_proglang_help (cat "\n"
  395.  
  396.             " This setting affects installation of additional  \n"
  397.             " language-related features (e.g. syntax parsers). \n"
  398.             " All files are installed but only support for the \n"
  399.             " language you choose know is made part of your    \n"
  400.             " default configuration.                           \n"
  401.         ))
  402.  
  403.         (set #golded_install_reqtools "Install Reqtools library ?")
  404.  
  405.         (set #golded_install_reqtools_help (cat "\n"
  406.  
  407.             " Reqtools ©1991-1996 Nico François. GoldED will   \n"
  408.             " not start if the Reqtools requester library is   \n"
  409.             " missing.                                         \n"
  410.         ))
  411.  
  412.         (set #golded_install_presets "Installation of presets...")
  413.  
  414.         (set #golded_hs_assign "\n Add HiSpeed assign to user-startup ?\n")
  415.  
  416.         (set #golded_hs_assign_help (cat "\n"
  417.  
  418.             " A HISPEED: assign is required if you want to run \n"
  419.             " HiSpeed without having to worry about the current\n"
  420.             " path (GoldED won't find HiSpeed if the assign is \n"
  421.             " missing). HiSpeed is a PCL printing program for  \n"
  422.             " Laser/DeskJet printers.                          \n"
  423.         ))
  424.  
  425.         (set #golded_removing_temp_files "\nRemoving temporary files ...")
  426.  
  427.         (set #golded_complete "\nInstallation complete.")
  428.  
  429.         (set #install_presets "\nInstall standard presets ?\n")
  430.  
  431.         (set #install_presets_menu     "Menu"    )
  432.         (set #install_presets_display  "Display" )
  433.         (set #install_presets_keyboard "Keyboard")
  434.         (set #install_presets_toolbar  "Toolbar" )
  435.         (set #install_presets_all      "All"     )
  436.  
  437.         (set #install_presets_help (cat "\n"
  438.  
  439.             " Standard configurations for menus, keyboard, etc.\n"
  440.             " are shipped with GoldED. These configurations are\n"
  441.             " not required if you update your existing GoldED  \n"
  442.             " installation - you may continue using your old   \n"
  443.             " configuration. However, you will not benefit from\n"
  444.             " updated material (e.g new menu translations) if  \n"
  445.             " you skip installation of standard presets.       \n"
  446.             "                                                  \n"
  447.             " We suggest that you do not name your own presets \n"
  448.             " standard.* so that standard presets can be       \n"
  449.             " reinstalled safely every time you update GoldED. \n"
  450.         ))
  451.     )
  452. )
  453.  
  454. ; -------------------------------- German strings ------------------------------
  455.  
  456. (if (= @language "deutsch")
  457.  
  458.     (
  459.         (set #golded_introduction (cat "\n"
  460.  
  461.             "GoldED 4 · Programmer's Editor                    \n"
  462.             "©1996 Dietmar Eilert                              \n"
  463.             "Alle Rechte vorbehalten.                          \n"
  464.             "                                                  \n"
  465.             "GoldED ist nicht frei vertreibbar. Bitte lesen    \n"
  466.             "Sie die Lizenz-Datei, bevor Sie diese Software    \n"
  467.             "installieren. Informationen für eine Installation \n"
  468.             "von GoldED 4 über GoldED 3 finden Sie in der      \n"
  469.             "Readme-Datei.                                     \n"
  470.             "                                                  \n"
  471.             "Dieses Script unterstützt eine Deinstallation.    \n"
  472.         ))
  473.  
  474.         (set #golded_badkick "\n Sorry, dieses Paket benötigt mind. OS2.04.\n")
  475.  
  476.         (set #golded_warn_userstartup "\nWARNUNG: S:USER-STARTUP NICHT GEFUNDEN")
  477.  
  478.         (set #golded_error (cat
  479.  
  480.             " Ein Fehler ist aufgetreten. Bitte informieren Sie\n"
  481.             " den Support (dietmar@tomate.tng.oche.de) NACHDEM \n"
  482.             " Sie die Intallation mit einer anderen Installer- \n"
  483.             " Version (Empfehlung: 1.24) wiederholt haben.     \n"
  484.             "                                                  \n"
  485.             " Die folgende Information wird benötigt: Fehler-  \n"
  486.             " Code (s.o.), Fehler-Text, abgearbeiteter Prozent-\n"
  487.             " satz (s. Fenstertitel) und die Log-Datei. Falls  \n"
  488.             " vorhanden: ein SnoopDos-Report. Danke !          \n"
  489.         ))
  490.  
  491.         (set #golded_assign_found "\nGoldED-Installation entdeckt ...\n")
  492.  
  493.         (set #golded_assign_found_help (cat "\n"
  494.  
  495.             " NEU INSTALLIEREN                                 \n"
  496.             "                                                  \n"
  497.             " Installiert GoldED in ein Verzeichnis Ihrer Wahl.\n"
  498.             " Eine vorhandene GoldED-Installation wird NICHT   \n"
  499.             " entfernt, wenn Sie in ein anderes Verzeichnis in-\n"
  500.             " stallieren. Bei Installation in ein vorhandenes  \n"
  501.             " GoldED-Verzeichnis werden vorhandene Dateien     \n"
  502.             " dagegen überschrieben (Backups werden wunschweise\n"
  503.             " angelegt).                                       \n"
  504.             "                                                  \n"
  505.             " UPDATE                                           \n"
  506.             "                                                  \n"
  507.             " Installiert GoldED in das vorhandene GoldED-Ver- \n"
  508.             " zeichnis. Dort vorhandene Dateien werden über-   \n"
  509.             " schrieben (Backups werden wunschweise angelegt). \n"
  510.             "                                                  \n"
  511.             " GOLDED ENTFERNEN                                 \n"
  512.             "                                                  \n"
  513.             " Alle Dateien und Ordner, die für GoldED angelegt \n"
  514.             " wurden, werden entfernt. Ihre eigenen Dateien    \n"
  515.             " werden ebenfalls gelöscht, wenn sie sich in einem\n"
  516.             " dieser Ordner befinden.                          \n"
  517.         ))
  518.  
  519.         (set #golded_new    "Neu installieren")
  520.         (set #golded_update "Update (über bisherige Version installieren)")
  521.         (set #golded_remove "Deinstallation (GoldED entfernen)")
  522.  
  523.         (set #golded_ask_amount "\nBitte wählen Sie die gewünschte Installation:\n")
  524.  
  525.         (set #golded_ask_amount_help (cat "\n"
  526.  
  527.             " Diese Auswahl bestimmt die Anzahl der Dateien,   \n"
  528.             " die installiert werden.                          \n"
  529.         ))
  530.  
  531.         (set #golded_ask_amount_standard "Komplette Installation (2.2 MB)")
  532.         (set #golded_ask_amount_user     "Benutzerdefiniert")
  533.         (set #golded_ask_amount_minimum  "Minimalinstallation (575 K)")
  534.  
  535.         (set #golded_remove_ged  "\nGoldED-Assign entfernen ?\n")
  536.         (set #golded_remove_hs   "\nHiSpeed-Assign entfernen ?\n")
  537.         (set #golded_remove_ed   "\nQuickstarter-Referenz entfernen ?\n")
  538.         (set #golded_remove_gmk  "\nGUIMake-Assign entfernen ?\n")
  539.  
  540.         (set #golded_must_remove "Sie sollten den Assign/die Referenz entfernen lassen !")
  541.  
  542.         (set #golded_removed "; (entfernt)")
  543.  
  544.         (set #golded_lharc     "\nEntpacken der Daten (kann einige Minuten dauern)")
  545.         (set #golded_lharcfail "\nEntpacken der Daten abgebrochen - Speicherplatz überprüfen")
  546.  
  547.         (set #golded_installing_files "\nInstallieren der Dateien ...")
  548.         (set #golded_prepare_install  "\nVorbereiten der Installation ...")
  549.  
  550.         (set #golded_backup_mode "\nWählen Sie eine Backup-Strategie für Ihre alte GoldED-Installation:\n")
  551.  
  552.         (set #golded_backup_mode_help (cat "\n"
  553.  
  554.             " Hier können Sie bestimmen, wie alte Dateien be-  \n"
  555.             " handelt werden, bevor sie durch neuere Versionen \n"
  556.             " überschrieben oder (falls als obsolet eingestuft)\n"
  557.             " gelöscht werden.                                 \n"
  558.         ))
  559.  
  560.         (set #golded_backup_mode_none      "Keine Backups")
  561.         (set #golded_backup_mode_selected  "Konfiguration & Makros sichern")
  562.         (set #golded_backup_mode_all       "Backup aller Dateien")
  563.  
  564.         (set #golded_pref_icons "\nBevorzugten Icon-Typ wählen:\n")
  565.  
  566.         (set #golded_medres " mittlere Auflösung (Seitenverhältnis 1:2)")
  567.         (set #golded_hires  " hohe Auflösung     (Seitenverhältnis 1:1)")
  568.  
  569.         (set #golded_pref_icons_help (cat "\n"
  570.  
  571.             " Wählen Sie die mittlere Auflösung, wenn für Ihre \n"
  572.             " Workbench ein Modus wie 640*200 eingestellt ist. \n"
  573.             "                                                  \n"
  574.             " Die hohe Auflösung sollte bei einem Höhen-/      \n"
  575.             " Breitenverhältnis von etwa 1:1 verwendet werden  \n"
  576.             " (640*512 oder 800*600).                          \n"
  577.         ))
  578.  
  579.         (set #golded_toolbar_style "\nBevorzugte Werkzeugleiste:\n")
  580.  
  581.         (set #golded_toolbar_4 "4  Farben")
  582.         (set #golded_toolbar_8 "8+ Farben")
  583.  
  584.         (set #golded_toolbar_style_help (cat "\n"
  585.  
  586.             " Beide Varianten können auf beliebigen Screens    \n"
  587.             " verwendet werden. Der 4-Farb-Stil wurde für vier-\n"
  588.             " farbige Screen optimiert. Der 8-Farb-Stil wurde  \n"
  589.             " für Screens mit acht oder mehr Farben (optimal:  \n"
  590.             " 16 Farben) ausgelegt.                            \n"
  591.         ))
  592.  
  593.         (set #golded_where (cat
  594.  
  595.             "Wo soll installiert werden ? In dem angegebenen   \n"
  596.             "Verzeichnis wird der Ordner 'GoldED' erzeugt:     \n"
  597.         ))
  598.  
  599.         (set #golded_where_help (cat "\n"
  600.  
  601.             " Wählen Sie ein beliebiges Verzeichnis. Hauptver- \n"
  602.             " zeichnisse wie DH0: können auch benutzt werden.  \n"
  603.             " In dem angegebenen Pfad wird ein Ordner 'GoldED' \n"
  604.             " samt Icon erzeugt werden.                        \n"
  605.             "                                                  \n"
  606.             " Das GoldED-Verzeichnis wird neben dem Editor auch\n"
  607.             " diverse begleitende Dateien aufnehmen.           \n"
  608.         ))
  609.  
  610.         (set #golded_bad_path "Sorry, Installation in RAM-Disk nicht möglich")
  611.  
  612.         (set #golded_drive_space (cat "\n"
  613.  
  614.             " Diese Installation benötigt mindestens fünf MB   \n"
  615.             " freien Platz auf dem Zieldatenträger. Bitte      \n"
  616.             " machen Sie diesen Platz verfügbar und starten Sie\n"
  617.             " die Installation dann neu.                       \n"
  618.         ))
  619.  
  620.         (set #golded_gold_lib "Installation der GoldED-Library ...")
  621.  
  622.         (set #golded_gold_lib_help (cat "\n"
  623.  
  624.             "Diese Library wird nur für die unregistrierte     \n"
  625.             "Version benötigt. Registrierte Benutzer erhalten  \n"
  626.             "ersatzweise ein Keyfile.                          \n"
  627.         ))
  628.  
  629.         (set #golded_select_optional (cat "\n"
  630.  
  631.             "Bitte wählen Sie, welche der folgenden GoldED-    \n"
  632.             "Komponenten installiert werden sollen (schon in-  \n"
  633.             "stallierte Komponenten werden ggf. entfernt):     \n"
  634.         ))
  635.  
  636.         (set #golded_select_optional_help (cat "\n"
  637.  
  638.             " Sie sollten keine der folgenden Komponenten de-  \n"
  639.             " aktivieren:                                      \n"
  640.             "                                                  \n"
  641.             " SYNTAX-PARSER (80 K)                             \n"
  642.             "                                                  \n"
  643.             " Diverse Syntax-Parser (verantwortlich für die    \n"
  644.             " farbkodierte Textdarstellung: Sourcecodes, HTML, \n"
  645.             " E-Mail, ...)                                     \n"
  646.             "                                                  \n"
  647.             " HISPEED (300 K)                                  \n"
  648.             "                                                  \n"
  649.             " Drucker-Utility für Laserdrucker, DeskJets und   \n"
  650.             " andere PCL-Drucker.                              \n"
  651.             "                                                  \n"
  652.             " Sie können jede der folgenden Komponenten ohne   \n"
  653.             " Auswirkungen auf GoldED entfernen lassen:        \n"
  654.             "                                                  \n"
  655.             " AppIcon-STARTER (6 K)                            \n"
  656.             "                                                  \n"
  657.             " Erzeugt ein Drag & Drop-Icon auf der Workbench:  \n"
  658.             " GoldED öffnet Texte, die auf dieses Icon gezogen \n"
  659.             " werden.                                          \n"
  660.             "                                                  \n"
  661.             " RECOVER (6 K)                                    \n"
  662.             "                                                  \n"
  663.             " Kann nach einem Systemabsturz den zuletzt be-    \n"
  664.             " arbeiteten Text rekonstruieren.                  \n"
  665.             "                                                  \n"
  666.             " BESTELLPROGRAMM (19 K)                           \n"
  667.             "                                                  \n"
  668.             " Druckt Bestellformular für GoldED.               \n"
  669.             "                                                  \n"
  670.             " API CLIENTS (16 K)                               \n"
  671.             "                                                  \n"
  672.             " API-Erweiterungen (Beispiele)                    \n"
  673.             "                                                  \n"
  674.             " DEVELOPER-MATERIAL (520 K)                       \n"
  675.             "                                                  \n"
  676.             " Beispiel-Sourcecodes (Syntax-Scanner, Quick-     \n"
  677.             " Starter, ...).                                   \n"
  678.             "                                                  \n"
  679.             " ANLEITUNG (290 - 350 K)                          \n"
  680.             "                                                  \n"
  681.             " Anleitung (diverse Sprachen). AmigaGuide-Format. \n"
  682.             " Hilfe zu den Menupunkten ist nur verfügbar, wenn \n"
  683.             " eine Anleitung installiert wird, die der für     \n"
  684.             " GoldED ausgewählten Sprache entspricht.          \n"
  685.             "                                                  \n"
  686.             " QUICKSTARTER (5 K)                               \n"
  687.             "                                                  \n"
  688.             " Schnelles GoldED-Frontend: GoldED-Aktivator.     \n"
  689.             "                                                  \n"
  690.             " UNLOCK (1 K)                                     \n"
  691.             "                                                  \n"
  692.             " Utility, das die Benutzeroberfläche von GoldED   \n"
  693.             " freischalten kann, wenn ein fehlerhaftes ARexx-  \n"
  694.             " Makro dies versäumt.                             \n"
  695.         ))
  696.  
  697.         (set #golded_select_presets      "Konfigurationsdateien")
  698.         (set #golded_select_parsers      "Syntax-Parser"        )
  699.         (set #golded_select_hispeed      "HiSpeed"              )
  700.         (set #golded_select_appicon      "AppIcon-Starter"      )
  701.         (set #golded_select_recover      "Recover-Utility"      )
  702.         (set #golded_select_order        "Bestellprogramm"      )
  703.         (set #golded_select_api          "API-Clients"          )
  704.         (set #golded_select_sources      "Sourcecodes"          )
  705.         (set #golded_select_manual_e     "Anleitung (englisch)" )
  706.         (set #golded_select_manual_d     "Anleitung (deutsch)"  )
  707.         (set #golded_select_quickstarter "QuickStarter"         )
  708.         (set #golded_select_unlock       "UnLock-Utility"       )
  709.  
  710.         (set #golded_what_catalog "\n Welche Kataloge sollen installiert werden ?\n")
  711.  
  712.         (set #golded_what_catalog_help (cat "\n"
  713.  
  714.             " Diese Daten werden vom Betriebssystem benötigt,  \n"
  715.             " um GoldED in verschiedenen Sprachen ablaufen zu  \n"
  716.             " lassen (dazu ist mindestens OS2.1 erforderlich). \n"
  717.             "                                                  \n"
  718.             " Menus werden nicht automatisch lokalisiert, da   \n"
  719.             " sie konfigurierbar sind und nicht direkt in den  \n"
  720.             " Editor eingebaut wurden - dazuu später mehr.     \n"
  721.         ))
  722.  
  723.         (set #golded_update_keyfile (cat "\n"
  724.  
  725.             "Sie besitzen schon ein Keyfile. Soll das vor-     \n"
  726.             "handene Keyfile ersetzt werden ?                  \n"
  727.         ))
  728.  
  729.         (set #golded_update_keyfile_help (cat "\n"
  730.  
  731.             " Lassen Sie ein vorhandenes GoldED Keyfile NICHT  \n"
  732.             " ersetzen,  wenn Sie nicht genau wissen, was Sie  \n"
  733.             " tun. Sinnvolle Anwendung: Sie haben GoldED er-   \n"
  734.             " worben und möchten nun eine Raubkopie entfernen  \n"
  735.             " lassen.                                          \n"
  736.         ))
  737.  
  738.         (set #golded_update_keyfile_overwrite "Keyfile ersetzen")
  739.         (set #golded_update_keyfile_keep "Altes Keyfile beibehalten")
  740.  
  741.         (set #golded_updating_icons "\nAktualisieren der Icons ...")
  742.  
  743.         (set #golded_what_manuals "\n Welche Anleitungen sollen installiert werden ?\n")
  744.  
  745.         (set #golded_what_manuals_help (cat "\n"
  746.  
  747.             " Jede Anleitung (AmigaGuide-Datei) belegt etwa    \n"
  748.             " 300K Platz auf Ihrer Festplatte                  \n"
  749.         ))
  750.  
  751.         (set #golded_add_ged_assign "\nGoldED-Assign einrichten ?\n")
  752.  
  753.         (set #golded_add_ged_assign_help (cat "\n"
  754.  
  755.             " Der Editor benötigt diesen Assign zum Auffinden  \n"
  756.             " diverser Dateien.                                \n"
  757.         ))
  758.  
  759.         (set #golded_quickname " Namen für Schnellstarter wählen:")
  760.  
  761.         (set #golded_quickname_help (cat "\n"
  762.  
  763.             " Der Schnellstarter ist ein kleiner (5 KB) Vorsatz\n"
  764.             " für GoldED, der benutzt werden kann, als ob er   \n"
  765.             " selbst ein Editor wäre. Sie könnten so 'ed text' \n"
  766.             " eingeben, um die Datei 'text' zu bearbeiten, wenn\n"
  767.             " der Name des Quickstarters ED lautet. Der Vor-   \n"
  768.             " teil des Schnellstarters: Er kann einen schon    \n"
  769.             " laufenden Editor ansprechen und diesem die       \n"
  770.             " Aufgabe übergeben. Dies geschieht sehr schnell.  \n"
  771.             " Weiterhin erlaubt er es, GoldED von jedem be-    \n"
  772.             " liebigen Verzeichnis aus aufzurufen oder den     \n"
  773.             " Editor von der Shell abzukoppeln, ohne daß RUN   \n"
  774.             " eingegeben werden muß.                           \n"
  775.             "                                                  \n"
  776.             " Namensvorgabe ist ED; damit würde der originale  \n"
  777.             " ED Ihrer Workbench ersetzt. Es kann natürlich    \n"
  778.             " jeder beliebige andere Name benutzt werden.      \n"
  779.         ))
  780.  
  781.         (set #golded_place_quick (cat "\n"
  782.  
  783.             " Wählen Sie ein Verzeichnis für den Quickstarter. \n"
  784.             " Das gewählte Verzeichnis sollte sich im Befehls- \n"
  785.             " pfad befinden:                                   \n"
  786.         ))
  787.  
  788.         (set #golded_place_quick_help (cat "\n"
  789.  
  790.             " Sie sollten eines der folgenden Verzeichnisse be-\n"
  791.             " nutzen, um den Quickstarter durch einfache       \n"
  792.             " Namensangabe von jedem Verzeichnis aus aufrufen  \n"
  793.             " zu können:                                       \n"
  794.             "                                                  \n"
  795.             " SYS:C, SYS:TOOLS, SYS:UTILITIES oder SYS:SYSTEM  \n"
  796.             "                                                  \n"
  797.             " Haben Sie den Starter ED genannt, so sollte er   \n"
  798.             " entweder in 'C:' plaziert werden oder der dort   \n"
  799.             " vorhandene ED gelöscht werden, um eindeutige Ver-\n"
  800.             " hältnisse zu schaffen.                           \n"
  801.         ))
  802.  
  803.         (set #golded_quick_resident "\n Schnellstarter resident machen ?\n")
  804.  
  805.         (set #golded_quick_resident_help (cat "\n"
  806.  
  807.             " Der Quickstarter sollte resident gemacht werden, \n"
  808.             " da er dann noch schneller ansprechbar ist. Der   \n"
  809.             " damit verbundene Speicherverbrauch ist vernach-  \n"
  810.             " lässigbar (5 KB).                                \n"
  811.         ))
  812.  
  813.         (set #golded_saving_files "\nBackups anlegen (golded:obsolete) ...")
  814.  
  815.         (set #golded_what_menu "\n Sprache für Menu auswählen: \n")
  816.  
  817.         (set #golded_what_menu_help (cat "\n"
  818.  
  819.             " GoldED ist lokalisiert und benutzt die Locale-   \n"
  820.             " Library des Betriebssystems (OS3), um die Re-    \n"
  821.             " questertexte in der bevorzugten Sprache darzu-   \n"
  822.             " stellen. Menus sind nicht Bestandteil von GoldED \n"
  823.             " und werden deshalb auch nicht automatisch in der \n"
  824.             " Sprache angepaßt. Wählen Sie deshalb bitte jetzt \n"
  825.             " die gewünschte Übersetzung.                      \n"
  826.         ))
  827.  
  828.         (set #golded_screen "\n Gewünschter Bildschirmmodus:\n")
  829.  
  830.         (set #golded_screen_help (cat "\n"
  831.  
  832.             " Einstellung des Bildschirmmodus vor dem ersten   \n"
  833.             " Programmstart. Wir raten zu einem eigenen Screen,\n"
  834.             " da GoldED dann schneller arbeitet und schöner    \n"
  835.             " aussieht (bei Rechnern mit nur 512K Chip-RAM ist \n"
  836.             " dafür aber möglicherweise zu wenig Speicher vor- \n"
  837.             " handen).                                         \n"
  838.         ))
  839.  
  840.         (set #golded_screen_wb     "Workbench-Screen")
  841.         (set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
  842.         (set #golded_screen_pal_i  "PAL  interlaced (640*512)")
  843.  
  844.         (set #golded_look_feel "\nLook & Feel\n")
  845.  
  846.         (set #golded_look_feel_help (cat "\n"
  847.  
  848.             " Vorschlag: Verwenden Sie zwei Farben, wenn Ihr   \n"
  849.             " Rechner langsam ist (68000-CPU), vier Farben     \n"
  850.             " für Rechner mit 68030/68030-CPU (etwa A1200) oder\n"
  851.             " einen beliebigen Modus für schnelle Rechner mit  \n"
  852.             " 68040/68060-CPU.                                 \n"
  853.         ))
  854.  
  855.         (set #golded_mode_blue     "Blau     (2  Farben)")
  856.         (set #golded_mode_stone    "Modern   (4  Farben)")
  857.         (set #golded_mode_desktop  "Desktop  (8  Farben)")
  858.         (set #golded_mode_designer "Designer (16 Farben)")
  859.  
  860.         (set #golded_what_proglang "\n Bevorzugte Programmiersprache:\n")
  861.  
  862.         (set #golded_what_proglang_other "andere")
  863.         (set #golded_what_proglang_none  "keine")
  864.  
  865.         (set #golded_what_proglang_help (cat "\n"
  866.  
  867.             " Diese Auswahl kontrolliert die Vorinstallation   \n"
  868.             " sprachspezifischer Features (z.B. Syntax-Parser).\n"
  869.             " Prinzipiell werden alle Dateien installiert, aber\n"
  870.             " nur der Support für die hier gewählten Sprache   \n"
  871.             " wird in Ihre Grundkonfiguration aufgenommen.     \n"
  872.         ))
  873.  
  874.         (set #golded_install_reqtools "Reqtools-Library installieren ?")
  875.  
  876.         (set #golded_install_reqtools_help (cat "\n"
  877.  
  878.             " Reqtools ©1991-1996 Nico François. GoldED wird   \n"
  879.             " nicht starten, wenn die Reqtools-Library nicht   \n"
  880.             " verfügbar ist.                                   \n"
  881.         ))
  882.  
  883.         (set #golded_install_presets "Installation der Konfigurationsdateien...")
  884.  
  885.         (set #golded_hs_assign "\n HiSpeed-Assign einrichten ?\n")
  886.  
  887.         (set #golded_hs_assign_help (cat "\n"
  888.  
  889.             " Dieser Assign wird benötigt, wenn HiSpeed aus    \n"
  890.             " jedem beliebigen Verzeichnis heraus aufrufbar    \n"
  891.             " soll. Ohne diesen Assign kann HiSpeed nicht durch\n"
  892.             " GoldED gestartet werden. HiSpeed ist ein Druck-  \n"
  893.             " programm für PCL-Drucker (Laser, Deskjet).       \n"
  894.         ))
  895.  
  896.         (set #golded_removing_temp_files "\nEntfernen temporärer Dateien ...")
  897.  
  898.         (set #golded_complete (cat "\nInstallation abgeschlossen."))
  899.  
  900.         (set #install_presets "\nStandardeinstellungen installieren ?\n")
  901.  
  902.         (set #install_presets_menu     "Menu"    )
  903.         (set #install_presets_display  "Anzeige" )
  904.         (set #install_presets_keyboard "Tastatur")
  905.         (set #install_presets_toolbar  "Toolbar" )
  906.         (set #install_presets_all      "Alle"    )
  907.  
  908.         (set #install_presets_help (cat "\n"
  909.  
  910.             " Zusammen mit GoldED werden Standardeinstellungen \n"
  911.             " für Menus, Tastaturbelegung, etc. ausgeliefert.  \n"
  912.             " Eine erneute Installation dieses Materials ist   \n"
  913.             " nicht erforderlich, wenn GoldED schon einmal     \n"
  914.             " installiert wurde: Sie können die vorhandenen    \n"
  915.             " Einstellungen weiter verwenden. Allerdings ent-  \n"
  916.             " gehen Ihnen dann möglicherweise aktualisierte    \n"
  917.             " Komponenten (beispielsweise eine neue Menü-      \n"
  918.             " übersetzung).                                    \n"
  919.             "                                                  \n"
  920.             " Tip: Nennen Sie die eigenen Konfigurationen nicht\n"
  921.             " standard.*. Dann können die Standardeinstellungen\n"
  922.             " mit jedem Update neu installiert werden, ohne daß\n"
  923.             " eigenes Material davon berührt wird.             \n"
  924.         ))
  925.     )
  926. )
  927.  
  928. ; --------------------------- Prepare installation -----------------------------
  929.  
  930. (onerror (
  931.  
  932.     (if (> @ioerr 0) 
  933.  
  934.         (message (cat "\n ERROR CODE: " @ioerr "\n\n" #golded_error))
  935.     )
  936. ))
  937.  
  938. ; initialize return code
  939.  
  940. (textfile (dest "env:GOLDEDINSTALL") (append "INCOMPLETE"))
  941.  
  942. (if (not (exists "prefs:" (noreq)))
  943.  
  944.     (makeassign "prefs" "sys:prefs")
  945. )
  946.  
  947. ; sure we are running under a 2.04 ROM ?
  948.  
  949. (if (< (/ (getversion) 65536) 37)
  950.  
  951.     (
  952.         (message #golded_badkick)
  953.  
  954.         (textfile (dest "env:GOLDEDINSTALL") (append "ERROR"))
  955.  
  956.         (exit (quiet))
  957.     )
  958. )
  959.  
  960. ; -------------------------------- Constants -----------------------------------
  961.  
  962. (set install_mode_new          0)
  963. (set install_mode_update       1)
  964. (set install_mode_remove       2)
  965.  
  966. (set install_type_maximum      0)
  967. (set install_type_user         1)
  968. (set install_type_minimum      2)
  969.  
  970. (set backup_mode_none          0)
  971. (set backup_mode_ask           1)
  972.  
  973. (set screen_workbench          0)
  974.  
  975. (set component_parser          1)
  976. (set component_hispeed         2)
  977. (set component_appicon         4)
  978. (set component_recover         8)
  979. (set component_order          16)
  980. (set component_api            32)
  981. (set component_sources        64)
  982. (set component_manual_e      128)
  983. (set component_manual_d      256)
  984. (set component_quickstarter  512)
  985. (set component_unlock       1024)
  986.  
  987. (set component_all (+ component_parser component_hispeed component_appicon component_recover component_order component_api component_sources component_manual_e component_manual_d component_quickstarter component_unlock))
  988.  
  989. (set install_presets_menu     1 )
  990. (set install_presets_display  2 )
  991. (set install_presets_keyboard 4 )
  992. (set install_presets_toolbar  8 )
  993. (set install_presets_all      16)
  994.  
  995. (set install_presets_again     0)
  996. (set install_presets_keep      1)
  997.  
  998. ; ----------------------------- Welcome user -----------------------------------
  999.  
  1000. (message #golded_introduction)
  1001.  
  1002. (welcome)
  1003.  
  1004. (if (exists "GoldED:" (noreq))
  1005.  
  1006.     (
  1007.         (set install_path (expandpath "golded:/"))
  1008.  
  1009.         (set install_mode
  1010.  
  1011.             (askchoice
  1012.  
  1013.                 (prompt #golded_assign_found)
  1014.                 (help   #golded_assign_found_help)
  1015.  
  1016.                 (default 1)
  1017.  
  1018.                 (choices
  1019.  
  1020.                     #golded_new
  1021.                     #golded_update
  1022.                     #golded_remove
  1023.                 )
  1024.             )
  1025.         )
  1026.     )
  1027.  
  1028.     ; GoldED not yet installed
  1029.  
  1030.     (set install_mode install_mode_new )
  1031. )
  1032.  
  1033. ; ---------------------------- Deinstall GoldED --------------------------------
  1034.  
  1035. (if (= install_mode install_mode_remove)
  1036.  
  1037.     (
  1038.         (run "assign >NIL: oldged: GoldED:/")
  1039.  
  1040.         ; assigns have to be removed first
  1041.  
  1042.         (run "assign >NIL: HiSpeed:  remove")
  1043.         (run "assign >NIL: GoldED:   remove")
  1044.         (run "assign >NIL: GUIMake:  remove")
  1045.  
  1046.         (run "delete >NIL: oldged:GoldED all quiet force")
  1047.         (run "delete >NIL: oldged:GoldED.info")
  1048.  
  1049.         (if (exists "locale:" (noreq))
  1050.  
  1051.             (
  1052.                 (delete "locale:catalogs/deutsch/GoldED.catalog"   )
  1053.                 (delete "locale:catalogs/français/GoldED.catalog"  )
  1054.                 (delete "locale:catalogs/italiano/GoldED.catalog"  )
  1055.                 (delete "locale:catalogs/nederlands/GoldED.catalog")
  1056.                 (delete "locale:catalogs/svenska/GoldED.catalog"   )
  1057.                 (delete "locale:catalogs/deutsch/SpellIT.catalog"  )
  1058.                 (delete "locale:catalogs/français/SpellIT.catalog" )
  1059.                 (delete "locale:catalogs/deutsch/HiSpeed.catalog"  )
  1060.                 (delete "locale:catalogs/français/HiSpeed.catalog" )
  1061.             )
  1062.         )
  1063.  
  1064.         (run "delete >NIL: prefs:presets/GED_#? all quiet")
  1065.         (run "delete >NIL: prefs:presets/GoldED all quiet")
  1066.         (run "delete >NIL: envarc:GoldED        all quiet")
  1067.         (run "delete >NIL: env:GoldED           all quiet")
  1068.         (run "delete >NIL: envarc:HiSpeed       all quiet")
  1069.         (run "delete >NIL: env:HiSpeed          all quiet")
  1070.         (run "delete >NIL: fonts:GoldED         all quiet")
  1071.  
  1072.         (delete "s:GUIMake.pref")
  1073.  
  1074.         (delete "libs:golded.library")
  1075.  
  1076.         (startup "GoldED"
  1077.  
  1078.             (prompt  #golded_remove_ged)
  1079.             (help    #golded_must_remove)
  1080.             (command #golded_removed)
  1081.         )
  1082.  
  1083.         (startup "HiSpeed"
  1084.  
  1085.             (prompt  #golded_remove_hs)
  1086.             (help    #golded_must_remove)
  1087.             (command #golded_removed)
  1088.         )
  1089.  
  1090.         (startup "GED_quick"
  1091.  
  1092.             (prompt  #golded_remove_ed)
  1093.             (help    #golded_must_remove)
  1094.             (command #golded_removed)
  1095.         )
  1096.  
  1097.         (startup "GUIMake"
  1098.  
  1099.             (prompt  #golded_remove_gmk)
  1100.             (help    #golded_must_remove)
  1101.             (command #golded_removed)
  1102.         )
  1103.  
  1104.         (run "assign >NIL: oldged:  remove")
  1105.  
  1106.         ; set return code
  1107.  
  1108.         (textfile (dest "env:GOLDEDINSTALL") (append "REMOVED"))
  1109.  
  1110.         (exit (quiet))
  1111.     )
  1112. )
  1113.  
  1114. ; choose destination directotry
  1115.  
  1116. (if (= install_mode install_mode_new)
  1117.  
  1118.     (
  1119.  
  1120.         (set install_path
  1121.  
  1122.             (askdir
  1123.  
  1124.                 (prompt #golded_where)
  1125.                 (help   #golded_where_help)
  1126.  
  1127.                 (default "SYS:TOOLS")
  1128.             )
  1129.         )
  1130.     )
  1131. )
  1132.  
  1133. ; ask for installation type
  1134.  
  1135. (set install_type
  1136.  
  1137.     (askchoice
  1138.  
  1139.         (prompt #golded_ask_amount)
  1140.         (help   #golded_ask_amount_help)
  1141.  
  1142.         (default 0)
  1143.  
  1144.         (choices
  1145.  
  1146.             #golded_ask_amount_standard
  1147.             #golded_ask_amount_user
  1148.             #golded_ask_amount_minimum
  1149.         )
  1150.     )
  1151. )
  1152.  
  1153. ; ------------------------ Prepare destination directory -----------------------
  1154.  
  1155. ; create destination directory, create GoldED: assign
  1156.  
  1157. (if (= install_mode install_mode_update)
  1158.  
  1159.     (
  1160.  
  1161.         (set install_path (expandpath "golded:/"))
  1162.         (set install_dir  (expandpath "golded:" ))
  1163.  
  1164.         (set backup_mode  backup_mode_ask)
  1165.     )
  1166.  
  1167.     (
  1168.         (set install_dir (tackon install_path "GoldED"))
  1169.  
  1170.         (if (exists install_dir)
  1171.  
  1172.             (
  1173.                 (set backup_mode backup_mode_ask)
  1174.  
  1175.                 (if (exists (tackon install_path "GoldED.info"))
  1176.  
  1177.                     (makedir install_dir)
  1178.                     (makedir install_dir (infos))
  1179.                 )
  1180.             )
  1181.  
  1182.             (
  1183.  
  1184.                 (set backup_mode backup_mode_none)
  1185.  
  1186.                 (makedir install_dir (infos))
  1187.             )
  1188.         )
  1189.  
  1190.         (makeassign "GoldED" install_dir)
  1191.     )
  1192. )
  1193.  
  1194. ; ------------------------------ Uncompress files ------------------------------
  1195.  
  1196. (if (or (= golded_install_debug 0) (not (exists "golded:goldeddata")))
  1197.  
  1198.     (
  1199.         (working #golded_lharc)
  1200.  
  1201.         ; lhfasfx is somewhat fussy about missing "/"'s - we use the assign instead
  1202.  
  1203.         (run "install.run golded:")
  1204.  
  1205.         (if (not (exists "golded:goldeddata"))
  1206.  
  1207.             (
  1208.                 (message #golded_lharcfail)
  1209.  
  1210.                 (exit (quiet))
  1211.             )
  1212.         )
  1213.     )
  1214. )
  1215.  
  1216. ; ------------------------------- Install libs ---------------------------------
  1217.  
  1218. (if (exists "golded:libs/reqtools.library")
  1219.  
  1220.     (
  1221.         (copylib
  1222.  
  1223.             (prompt  #golded_install_reqtools)
  1224.             (help    #golded_install_reqtools_help)
  1225.             (source  "golded:libs/reqtools.library")
  1226.             (dest    "libs:")
  1227.             (confirm)
  1228.         )
  1229.     )
  1230. )
  1231.  
  1232. ; ------------------------------- Start presentation ---------------------------
  1233.  
  1234. ; run Describe presentation
  1235.  
  1236. (if (= @language "deutsch")
  1237.  
  1238.     (run "golded:goldeddata/installdata/bin/sync SCRIPT=INSTALL_D.BAT")
  1239.     (run "golded:goldeddata/installdata/bin/sync SCRIPT=INSTALL_E.BAT")
  1240. )
  1241.  
  1242. ; --------------------------- Check existing installation ----------------------
  1243.  
  1244. (if (= install_mode install_mode_update)
  1245.  
  1246.     ; upgrading from GoldED 4 ?
  1247.  
  1248.     (if (exists "golded:registry")
  1249.  
  1250.         (
  1251.             (set install_optional (+ component_parser component_hispeed))
  1252.  
  1253.             (if (exists "golded:appicon"           ) (set install_optional (+ install_optional component_appicon     )))
  1254.             (if (exists "golded:recover"           ) (set install_optional (+ install_optional component_recover     )))
  1255.             (if (exists "golded:order"             ) (set install_optional (+ install_optional component_order       )))
  1256.             (if (exists "golded:api/rexx.api"      ) (set install_optional (+ install_optional component_api         )))
  1257.             (if (exists "golded:developer"         ) (set install_optional (+ install_optional component_sources     )))
  1258.             (if (exists "golded:manual"            ) (set install_optional (+ install_optional component_manual_e    )))
  1259.             (if (exists "golded:anleitung"         ) (set install_optional (+ install_optional component_manual_d    )))
  1260.             (if (exists "golded:ed"                ) (set install_optional (+ install_optional component_quickstarter)))
  1261.             (if (exists "golded:unlock"            ) (set install_optional (+ install_optional component_unlock      )))
  1262.         )
  1263.  
  1264.         (set install_optional component_all)
  1265.     )
  1266.  
  1267.     (set install_optional component_all)
  1268. )
  1269.  
  1270. (if (exists "golded:golded.info")
  1271.  
  1272.     (if (> (getsize "golded:golded.info") 800)
  1273.  
  1274.         (set golded_icon_set 1)
  1275.         (set golded_icon_set 0)
  1276.     )
  1277.  
  1278.     (set golded_icon_set 1)
  1279. )
  1280.  
  1281. (if (exists "golded:toolbar/standard/save")
  1282.  
  1283.     (if (> (getsize "golded:golded.info") 256)
  1284.  
  1285.         (set golded_toolbar_style 1)
  1286.         (set golded_toolbar_style 0)
  1287.     )
  1288.  
  1289.     (set golded_toolbar_style 1)
  1290. )
  1291.  
  1292. ; --------------------------- Backup important files ---------------------------
  1293.  
  1294. (if (exists "golded:obsolete")
  1295.  
  1296.     (run "delete golded:obsolete all quiet")
  1297. )
  1298.  
  1299. (if (= backup_mode backup_mode_ask)
  1300.  
  1301.     (
  1302.         (if (exists "golded:config")
  1303.  
  1304.             (set backup_default 2)
  1305.             (set backup_default 1)
  1306.         )
  1307.  
  1308.         (set backup_mode
  1309.  
  1310.             (askchoice
  1311.  
  1312.                 (prompt #golded_backup_mode)
  1313.                 (help   #golded_backup_mode_help)
  1314.  
  1315.                 (default backup_default)
  1316.  
  1317.                 (choices
  1318.  
  1319.                     #golded_backup_mode_none
  1320.                     #golded_backup_mode_selected
  1321.                     #golded_backup_mode_all
  1322.                 )
  1323.             )
  1324.         )
  1325.     )
  1326. )
  1327.  
  1328. (if (not (= backup_mode backup_mode_none))
  1329.  
  1330.     (
  1331.         (makedir "golded:obsolete")
  1332.  
  1333.         (if (= backup_mode 2)
  1334.  
  1335.             (
  1336.                 (working #golded_saving_files)
  1337.  
  1338.                 (copyfiles
  1339.  
  1340.                     (source   "golded:"                )
  1341.                     (dest     "golded:obsolete"        )
  1342.                     (pattern  "~(goldeddata|obsolete)" )
  1343.                     (nogauge)
  1344.                 )
  1345.             )
  1346.  
  1347.             (if (or (exists "golded:arexx") (exists "golded:registry") (exists "golded:config"))
  1348.  
  1349.                 (
  1350.                     (working #golded_saving_files)
  1351.  
  1352.                     (copyfiles
  1353.  
  1354.                         (source   "golded:"          )
  1355.                         (dest     "golded:obsolete"  )
  1356.                         (pattern  "(registry|arexx|config)" )
  1357.                         (nogauge)
  1358.                     )
  1359.                 )
  1360.             )
  1361.         )
  1362.     )
  1363. )
  1364.  
  1365. ; --------------------------- Remove obsolete files ----------------------------
  1366.  
  1367. (run "delete golded:presets all quiet")
  1368. (run "delete golded:config  all quiet")
  1369.  
  1370. ; remove obsolete files
  1371.  
  1372. (delete "golded:golded.guide" (infos))
  1373. (delete "golded:GEDApp" (infos))
  1374. (delete "golded:Hi!" (infos))
  1375. (delete "golded:Tools/Unlock.info" (infos))
  1376. (delete "golded:rx")
  1377. (delete "golded:api/history")
  1378. (delete "golded:api/readme")
  1379. (delete "golded:api/readme.info")
  1380. (delete "golded:api/dock/dock1.prefs")
  1381. (delete "golded:api/dock/dock2.prefs")
  1382. (delete "golded:macros/test.ged")
  1383. (delete "golded:Anleitung")
  1384. (delete "golded:Manual")
  1385. (delete "golded:Manuel")
  1386. (delete "golded:History")
  1387. (delete "golded:keyfile/keyfile")
  1388. (delete "libs:golded.library")
  1389.  
  1390. ; remove obsolete icons
  1391.  
  1392. (delete "golded:arexx.info"          )
  1393. (delete "golded:menu.info"           )
  1394. (delete "golded:manuel.info"         )
  1395. (delete "golded:tools/hispeed.info"  )
  1396. (delete "golded:tools/ed.info"       )
  1397. (delete "golded:tools/gedrefs.info"  )
  1398. (delete "golded:tools/recover.info"  )
  1399. (delete "golded:tools/gedapp.info"   )
  1400. (delete "golded:tools/prjsource.info")
  1401. (delete "golded:tools/unlock.info"   )
  1402. (delete "golded:tools/geddock.info"  )
  1403. (delete "golded:tools/gedscan.info"  )
  1404. (delete "golded:tools/menu.info"     )
  1405. (delete "golded:api/reversed.info"   )
  1406. (delete "golded:api/nextstep.info"   )
  1407. (delete "golded:api/dock.info"       )
  1408. (delete "golded:tools/source.info"   )
  1409. (delete "golded:tools/scanner.info"  )
  1410.  
  1411. ; remove obsolete catalogs
  1412.  
  1413. (if (exists "locale:" (noreq)) (
  1414.  
  1415.     (delete "locale:catalogs/deutsch/GoldED.catalog")
  1416.     (delete "locale:catalogs/français/GoldED.catalog")
  1417.     (delete "locale:catalogs/italiano/GoldED.catalog")
  1418.     (delete "locale:catalogs/nederlands/GoldED.catalog")
  1419.     (delete "locale:catalogs/svenska/GoldED.catalog")
  1420.     (delete "locale:catalogs/deutsch/HiSpeed.catalog")
  1421.     (delete "locale:catalogs/français/HiSpeed.catalog")
  1422. ))
  1423.  
  1424. ; remove obsolete drawers
  1425.  
  1426. (run "delete golded:config                all quiet")
  1427. (run "delete golded:macros                all quiet")
  1428. (run "delete golded:presets               all quiet")
  1429. (run "delete golded:syntax/developer      all quiet")
  1430. (run "delete golded:menu                  all quiet")
  1431. (run "delete golded:tools/menu            all quiet")
  1432. (run "delete golded:tools/scanner         all quiet")
  1433. (run "delete golded:tools/source          all quiet")
  1434. (run "delete golded:tools/ed              all quiet")
  1435. (run "delete golded:tools/gedrefs         all quiet")
  1436. (run "delete golded:tools/recover         all quiet")
  1437. (run "delete golded:tools/gedapp          all quiet")
  1438. (run "delete golded:tools/prjsource       all quiet")
  1439. (run "delete golded:tools/unlock          all quiet")
  1440. (run "delete golded:tools/geddock         all quiet")
  1441. (run "delete golded:tools/gedscan         all quiet")
  1442. (run "delete golded:tools/hispeed/keyfile all quiet")
  1443. (run "delete env:golded                   all quiet")
  1444. (run "delete envarc:golded                all quiet")
  1445. (run "delete s:golded                     all quiet")
  1446. (run "delete golded:tools/edsource        all quiet")
  1447. (run "delete prefs:presets/GED_#?         all quiet")
  1448. (run "delete golded:api/rexx              all quiet")
  1449. (run "delete golded:api/spell             all quiet")
  1450. (run "delete golded:api/reversed          all quiet")
  1451. (run "delete golded:api/nextstep          all quiet")
  1452. (run "delete golded:api/dock              all quiet")
  1453. (run "delete golded:api/include           all quiet")
  1454. (run "delete golded:arexx/backup          all quiet")
  1455.  
  1456. ; ----------------------------- Install all files ------------------------------
  1457.  
  1458. (if (or (= golded_install_debug 0) (not (exists "golded:golded")))
  1459.  
  1460.     (
  1461.  
  1462.         (if (= install_type install_type_user)
  1463.  
  1464.             (working #golded_prepare_install)
  1465.             (working #golded_installing_files)
  1466.         )
  1467.  
  1468.         (copyfiles
  1469.  
  1470.             (source  "golded:goldeddata")
  1471.             (dest    "golded:"          )
  1472.             (pattern "~(installdata)"   )
  1473.             (nogauge)
  1474.         )
  1475.     )
  1476. )
  1477.  
  1478. (copyfiles
  1479.  
  1480.     (source "golded:tools/hispeed/HiSpeed")
  1481.     (dest   "golded:")
  1482.     (nogauge)
  1483. )
  1484.  
  1485. (copyfiles
  1486.  
  1487.     (source "golded:goldeddata/installdata/fonts" )
  1488.     (dest   "fonts:")
  1489.     (all)
  1490.     (nogauge)
  1491. )
  1492.  
  1493. (if (not (exists "golded:registry"))
  1494.  
  1495.     (makedir "golded:registry")
  1496. )
  1497.  
  1498. (if (not (exists "golded:registry/presets"))
  1499.  
  1500.     (makedir "golded:registry/presets")
  1501. )
  1502.  
  1503.  
  1504. (if (not (exists "golded:xref"))
  1505.  
  1506.     (makedir "golded:xref")
  1507. )
  1508.  
  1509.  
  1510. (if (not (exists "golded:recordings"))
  1511.  
  1512.     (makedir "golded:recordings")
  1513. )
  1514.  
  1515. (if (not (exists "golded:sessions"))
  1516.  
  1517.     (makedir "golded:sessions")
  1518. )
  1519.  
  1520. ; ------------------------------ Install keyfile -------------------------------
  1521.  
  1522. (if (exists "keyfile/golded.keyfile")
  1523.  
  1524.     (
  1525.         (if (exists "golded:keyfile/golded.keyfile")
  1526.  
  1527.             (set install_keyfile
  1528.  
  1529.                 (askchoice
  1530.  
  1531.                     (prompt #golded_update_keyfile)
  1532.                     (help   #golded_update_keyfile_help)
  1533.  
  1534.                     (default 0)
  1535.  
  1536.                     (choices
  1537.  
  1538.                         #golded_update_keyfile_keep
  1539.                         #golded_update_keyfile_overwrite
  1540.                     )
  1541.                 )
  1542.             )
  1543.  
  1544.             (set install_keyfile 1)
  1545.         )
  1546.     )
  1547.  
  1548.     ; just a demo
  1549.  
  1550.     (set install_keyfile 0)
  1551. )
  1552.  
  1553. (if (= install_keyfile 1)
  1554.  
  1555.     (
  1556.         ; just in case somebody saved the keyfile as golded:keyfile (supposed to be a drawer)
  1557.  
  1558.         (run "delete golded:keyfile")
  1559.  
  1560.         (if (not (exists "golded:keyfile"))
  1561.  
  1562.             (makedir "golded:keyfile")
  1563.         )
  1564.  
  1565.         (copyfiles
  1566.  
  1567.             (source "keyfile/golded.keyfile")
  1568.             (dest   "golded:keyfile")
  1569.         )
  1570.     )
  1571. )
  1572.  
  1573. ; ------------------------------- Install icons --------------------------------
  1574.  
  1575. (if (= install_mode install_mode_new)
  1576.  
  1577.     (set golded_icon_set
  1578.  
  1579.         (askchoice
  1580.  
  1581.             (prompt #golded_pref_icons)
  1582.             (help   #golded_pref_icons_help)
  1583.  
  1584.             (choices
  1585.  
  1586.                 #golded_medres
  1587.                 #golded_hires
  1588.             )
  1589.  
  1590.             (default golded_icon_set)
  1591.         )
  1592.     )
  1593. )
  1594.  
  1595.  
  1596. (working #golded_updating_icons)
  1597.  
  1598. ; install small (med-res) icons
  1599.  
  1600. (if (= golded_icon_set 0)
  1601.  
  1602.     (
  1603.         (copyfiles
  1604.  
  1605.             (source "golded:goldeddata/installdata/icons/golded")
  1606.             (dest   "golded:")
  1607.             (all)
  1608.             (nogauge)
  1609.         )
  1610.     )
  1611. )
  1612.  
  1613. ; create GoldED ARexx macro icons
  1614.  
  1615. (if (= golded_icon_set 0)
  1616.  
  1617.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=100 DY=40 COLUMNS=5")
  1618.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/hires  DX=100 DY=45 COLUMNS=5")
  1619. )
  1620.  
  1621. ; create HiSpeed Arexx macro icons
  1622.  
  1623. (if (= golded_icon_set 0)
  1624.  
  1625.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=90 DY=40 COLUMNS=5")
  1626.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/hires  DX=95 DY=45 COLUMNS=5")
  1627. )
  1628.  
  1629. ; ------------------------------ Select components  ----------------------------
  1630.  
  1631. (if (= install_type install_type_maximum)
  1632.  
  1633.     (set install_optional component_all)
  1634. )
  1635.  
  1636. (if (= install_type install_type_minimum)
  1637.  
  1638.     (set install_optional 0)
  1639. )
  1640.  
  1641. (if (= install_type install_type_user)
  1642.  
  1643.     (set install_optional
  1644.  
  1645.         (askoptions
  1646.  
  1647.             (prompt #golded_select_optional)
  1648.             (help   #golded_select_optional_help)
  1649.  
  1650.             (default install_optional)
  1651.  
  1652.             (choices
  1653.  
  1654.                 #golded_select_parsers
  1655.                 #golded_select_hispeed
  1656.                 #golded_select_appicon
  1657.                 #golded_select_recover
  1658.                 #golded_select_order
  1659.                 #golded_select_api
  1660.                 #golded_select_sources
  1661.                 #golded_select_manual_e
  1662.                 #golded_select_manual_d
  1663.                 #golded_select_quickstarter
  1664.                 #golded_select_unlock
  1665.             )
  1666.         )
  1667.     )
  1668. )
  1669.  
  1670. ; ----------------------------- Remove unwanted files --------------------------
  1671.  
  1672. (if (= 0 (bitand install_optional component_sources))
  1673.  
  1674.     (
  1675.  
  1676.         (run "delete golded:developer all quiet")
  1677.         (run "delete golded:tools/cat all quiet")
  1678.  
  1679.         (delete "golded:tools/cat.info")
  1680.     )
  1681. )
  1682.  
  1683. (if (= 0 (bitand install_optional component_parser))
  1684.  
  1685.     (run "delete golded:syntax/#? all quiet")
  1686. )
  1687.  
  1688. (if (= 0 (bitand install_optional component_hispeed))
  1689.  
  1690.     (
  1691.         (if (exists "hispeed:" (noreq))
  1692.  
  1693.             (run "assign HiSpeed: remove")
  1694.  
  1695.             (startup "HiSpeed"
  1696.  
  1697.                 (prompt  #golded_remove_hs)
  1698.                 (help    #golded_must_remove)
  1699.                 (command #golded_removed)
  1700.             )
  1701.         )
  1702.  
  1703.         (delete "golded:hispeed")
  1704.  
  1705.         (run "delete golded:tools/hispeed#? all quiet")
  1706.     )
  1707. )
  1708.  
  1709. (if (= 0 (bitand install_optional component_appicon))
  1710.  
  1711.     (delete "golded:appicon")
  1712. )
  1713.  
  1714. (if (= 0 (bitand install_optional component_recover))
  1715.  
  1716.     (delete "golded:recover")
  1717. )
  1718.  
  1719. (if (= 0 (bitand install_optional component_order))
  1720.  
  1721.     (delete "golded:order")
  1722. )
  1723.  
  1724. (if (= 0 (bitand install_optional component_api))
  1725.  
  1726.     (run "delete golded:api/(dock|rexx|spell|startup|mirror)#? all quiet")
  1727. )
  1728.  
  1729. (if (= 0 (bitand install_optional component_manual_e))
  1730.  
  1731.     (delete "golded:manual")
  1732. )
  1733.  
  1734. (if (= 0 (bitand install_optional component_manual_d))
  1735.  
  1736.     (delete "golded:anleitung")
  1737. )
  1738.  
  1739. (if (= 0 (bitand install_optional component_quickstarter))
  1740.  
  1741.     (delete "golded:ed")
  1742. )
  1743.  
  1744. (if (= 0 (bitand install_optional component_unlock))
  1745.  
  1746.     (delete "golded:unlock")
  1747. )
  1748.  
  1749. ; --------------------------------- Arrange icons ------------------------------
  1750.  
  1751. ; arrange icons
  1752.  
  1753. (run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=GoldED ED AppIcon Anleitung Manual Manuel DIR=golded:")
  1754. (run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=HiSpeed Recover Unlock Order DIR=golded:")
  1755.  
  1756. (run "golded:goldeddata/installdata/bin/moveicons DIR=golded:tools GRID DX=0 DY=27 COLUMNS=1")
  1757. (run "golded:goldeddata/installdata/bin/moveicons DIR=golded:api   GRID DX=0 DY=45 COLUMNS=1")
  1758.  
  1759. ; ---------------------------------- QuickStarter ------------------------------
  1760.  
  1761. (if (bitand install_optional component_quickstarter)
  1762.  
  1763.     (
  1764.         (set quick_starter_name (askstring
  1765.  
  1766.             (prompt #golded_quickname)
  1767.             (help   #golded_quickname_help)
  1768.  
  1769.             (default "ED")
  1770.         ))
  1771.  
  1772.         (if (= quick_starter_name "")
  1773.  
  1774.             (set quick_starter_name "ED")
  1775.             (set quick_starter_name (fileonly quick_starter_name))
  1776.         )
  1777.  
  1778.         (set quick_starter_dir (askdir
  1779.  
  1780.             (prompt #golded_place_quick)
  1781.             (help   #golded_place_quick_help)
  1782.  
  1783.             (default "C:")
  1784.         ))
  1785.  
  1786.         ; patch quickstarter to allow it running GoldED without GOLDED: assign
  1787.  
  1788.         (run (cat "golded:goldeddata/installdata/bin/patch file=golded:ed find=$GOLDED INSERT=\"" (expandpath "golded:") "\""))
  1789.  
  1790.         (copyfiles
  1791.  
  1792.             (source  "golded:ed")
  1793.             (dest     quick_starter_dir)
  1794.             (newname  quick_starter_name)
  1795.             (nogauge)
  1796.         )
  1797.  
  1798.         (set quickstarter (tackon quick_starter_dir quick_starter_name))
  1799.  
  1800.     )
  1801. )
  1802.  
  1803. ; ----------------------------- Standard configuration -------------------------
  1804.  
  1805. (if (= @language "english" ) (set menu_language 0))
  1806. (if (= @language "deutsch" ) (set menu_language 1))
  1807. (if (= @language "italiano") (set menu_language 2))
  1808.  
  1809. (if (exists "golded:registry/registry")
  1810.  
  1811.     (
  1812.         (set install_presets
  1813.  
  1814.             (askoptions
  1815.  
  1816.                 (prompt #install_presets)
  1817.                 (help   #install_presets_help)
  1818.  
  1819.                 (choices
  1820.  
  1821.                     #install_presets_menu
  1822.                     #install_presets_display
  1823.                     #install_presets_keyboard
  1824.                     #install_presets_toolbar
  1825.                     #install_presets_all
  1826.                 )
  1827.  
  1828.                 (default 0)
  1829.             )
  1830.         )
  1831.     )
  1832.  
  1833.     (
  1834.         (copyfiles
  1835.  
  1836.             (source "golded:goldeddata/installdata/registry/registry")
  1837.             (dest   "golded:registry")
  1838.             (nogauge)
  1839.         )
  1840.  
  1841.         (set install_presets install_presets_all)
  1842.     )
  1843. )
  1844.  
  1845. ; install standard presets ?
  1846.  
  1847. (if (<> install_presets 0)
  1848.  
  1849.     (
  1850.         (if (<> 0 (bitand install_presets install_presets_all))
  1851.  
  1852.             (copyfiles
  1853.  
  1854.                 (source "golded:goldeddata/installdata/registry/presets/standard")
  1855.                 (dest   "golded:registry/presets")
  1856.                 (all)
  1857.                 (nogauge)
  1858.             )
  1859.         )
  1860.  
  1861.         ; install menu
  1862.  
  1863.         (if (or (bitand install_presets install_presets_menu) (bitand install_presets install_presets_all))
  1864.  
  1865.             (
  1866.  
  1867.                 (set menu_language (askchoice
  1868.  
  1869.                     (prompt #golded_what_menu)
  1870.                     (help   #golded_what_menu_help)
  1871.  
  1872.                     (choices
  1873.  
  1874.                         "English"
  1875.                         "Deutsch"
  1876.                         "Italiano"
  1877.                         "Français"
  1878.                     )
  1879.  
  1880.                     (default menu_language)
  1881.                 ))
  1882.  
  1883.                 (if (= menu_language 0) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.e"))
  1884.                 (if (= menu_language 1) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.d"))
  1885.                 (if (= menu_language 2) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.i"))
  1886.                 (if (= menu_language 3) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.f"))
  1887.  
  1888.                 (copyfiles
  1889.  
  1890.                     (source  menu_preset)
  1891.                     (dest    "golded:registry/presets")
  1892.                     (newname "standard.menu")
  1893.                     (nogauge)
  1894.                 )
  1895.             )
  1896.         )
  1897.  
  1898.         ; toolbar
  1899.  
  1900.         (if (or (bitand install_presets install_presets_toolbar) (bitand install_presets install_presets_all))
  1901.  
  1902.             (
  1903.                 (set golded_toolbar_style
  1904.  
  1905.                     (askchoice
  1906.  
  1907.                         (prompt #golded_toolbar_style)
  1908.                         (help   #golded_toolbar_style_help)
  1909.  
  1910.                         (choices
  1911.  
  1912.                             #golded_toolbar_4
  1913.                             #golded_toolbar_8
  1914.                         )
  1915.  
  1916.                         (default golded_toolbar_style)
  1917.                     )
  1918.                 )
  1919.  
  1920.                 (if (not (exists "golded:toolbar"))
  1921.  
  1922.                     (makedir "golded:toolbar")
  1923.                 )
  1924.  
  1925.                 ; install 4-color toolbar images
  1926.  
  1927.                 (copyfiles
  1928.  
  1929.                     (source "golded:goldeddata/installdata/toolbar4")
  1930.                     (dest   "golded:toolbar")
  1931.                     (all)
  1932.                     (nogauge)
  1933.                 )
  1934.  
  1935.                 ; install 16-color toolbar images
  1936.  
  1937.                 (if (= golded_toolbar_style 1)
  1938.  
  1939.                     (copyfiles
  1940.  
  1941.                         (source "golded:goldeddata/installdata/toolbar16")
  1942.                         (dest   "golded:toolbar")
  1943.                         (all)
  1944.                         (nogauge)
  1945.                     )
  1946.                 )
  1947.  
  1948.                 (if (= menu_language 0) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.e"))
  1949.                 (if (= menu_language 1) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.d"))
  1950.                 (if (= menu_language 2) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.i"))
  1951.                 (if (= menu_language 3) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.f"))
  1952.  
  1953.                 (copyfiles
  1954.  
  1955.                     (source  gad_preset)
  1956.                     (dest    "golded:registry/presets")
  1957.                     (newname "standard.gadgets")
  1958.                     (nogauge)
  1959.                 )
  1960.             )
  1961.         )
  1962.  
  1963.         ; display
  1964.  
  1965.         (if (or (bitand install_presets install_presets_display) (bitand install_presets install_presets_all))
  1966.  
  1967.             (
  1968.  
  1969.                 (set screen_mode (askchoice
  1970.  
  1971.                     (prompt #golded_screen)
  1972.                     (help   #golded_screen_help)
  1973.  
  1974.                     (choices
  1975.  
  1976.                         #golded_screen_wb
  1977.                         #golded_screen_ntsc_i
  1978.                         #golded_screen_pal_i
  1979.                     )
  1980.  
  1981.                     (default screen_workbench)
  1982.                 ))
  1983.  
  1984.                 (if (= screen_mode screen_workbench)
  1985.  
  1986.                     (copyfiles
  1987.  
  1988.                         (source  "golded:goldeddata/installdata/registry/presets/special/standard.display.wb")
  1989.                         (dest    "golded:registry/presets")
  1990.                         (newname "standard.display")
  1991.                         (nogauge)
  1992.                     )
  1993.  
  1994.                     (
  1995.                         (set screen_layout (askchoice
  1996.  
  1997.                             (prompt #golded_look_feel)
  1998.                             (help   #golded_look_feel_help)
  1999.  
  2000.                             (default 1)
  2001.  
  2002.                             (choices
  2003.  
  2004.                                 #golded_mode_blue
  2005.                                 #golded_mode_stone
  2006.                                 #golded_mode_desktop
  2007.                                 #golded_mode_designer
  2008.                             )
  2009.                         ))
  2010.  
  2011.                         (if (= screen_layout 0) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.2"))
  2012.                         (if (= screen_layout 1) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.4"))
  2013.                         (if (= screen_layout 2) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.8"))
  2014.                         (if (= screen_layout 3) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.16"))
  2015.  
  2016.                         (if (= screen_mode 1)
  2017.  
  2018.                             (set preset_display (cat preset_display "n"))
  2019.                             (set preset_display (cat preset_display "p"))
  2020.                         )
  2021.  
  2022.                         (set preset_display (cat preset_display "i"))
  2023.  
  2024.                         (copyfiles
  2025.  
  2026.                             (source  preset_display)
  2027.                             (dest    "golded:registry/presets")
  2028.                             (newname "standard.display")
  2029.                             (nogauge)
  2030.                         )
  2031.                     )
  2032.                 )
  2033.  
  2034.                 ; update display preset to use system's default fonts
  2035.  
  2036.                 (run "golded:goldeddata/installdata/bin/installfont FILE=golded:registry/presets/standard.display")
  2037.             )
  2038.         )
  2039.  
  2040.         ; keyboard
  2041.  
  2042.         (if (or (bitand install_presets install_presets_keyboard) (bitand install_presets install_presets_all))
  2043.  
  2044.             (copyfiles
  2045.  
  2046.                 (source "golded:goldeddata/installdata/registry/presets/special/standard.keyboard")
  2047.                 (dest   "golded:registry/presets")
  2048.                 (nogauge)
  2049.             )
  2050.         )
  2051.     )
  2052. )
  2053.  
  2054. ; ------------------------------ Modify user-startup -------------------------
  2055.  
  2056. (if (not (exists "s:user-startup"))
  2057.  
  2058.     (message #golded_warn_userstartup)
  2059. )
  2060.  
  2061. (startup "GoldED"
  2062.  
  2063.     (prompt #golded_add_ged_assign)
  2064.     (help   #golded_add_ged_assign_help)
  2065.  
  2066.     (command  ("ASSIGN >NIL: GOLDED: %s" install_dir))
  2067. )
  2068.  
  2069. (if (bitand install_optional component_quickstarter)
  2070.  
  2071.     (startup "GED_quick"
  2072.  
  2073.         (prompt #golded_quick_resident)
  2074.         (help   #golded_quick_resident_help)
  2075.  
  2076.         (command ("resident %s pure" quickstarter))
  2077.     )
  2078. )
  2079.  
  2080. (if (bitand install_optional component_hispeed)
  2081.  
  2082.     (
  2083.         (startup "HiSpeed"
  2084.  
  2085.             (prompt #golded_hs_assign)
  2086.             (help   #golded_hs_assign_help)
  2087.  
  2088.             (command ("ASSIGN >NIL: HISPEED: GOLDED:TOOLS/HISPEED"))
  2089.         )
  2090.  
  2091.         (makeassign "HiSpeed" "golded:tools/hispeed")
  2092.     )
  2093. )
  2094.  
  2095. ; ------------------------------------- Done -----------------------------------
  2096.  
  2097. ; stop Describe presentation
  2098.  
  2099. (run "golded:goldeddata/installdata/bin/sync COMMAND=QUIT")
  2100.  
  2101. (working #golded_removing_temp_files)
  2102.  
  2103. (if (= golded_install_debug 0)
  2104.  
  2105.     (run "delete golded:goldeddata#? all quiet")
  2106. )
  2107.  
  2108. (complete 100)
  2109.  
  2110. (if (= install_mode install_mode_remove)
  2111.  
  2112.     (exit (quiet))
  2113.  
  2114.     (
  2115.         ; set return code
  2116.  
  2117.         (textfile (dest "env:GOLDEDINSTALL") (append "OK"))
  2118.  
  2119.         (exit #golded_complete)
  2120.     )
  2121. )
  2122.